80 TEXT : HOME :SL(1) = 49663:SL(2) = 49919:SL(3) = 50175:SL(4) = 50431:SL(5) = 50687:SL(6) = 50943:SL(7) = 51199: FOR I = 768 TO 788: READ J: POKE I,J: NEXT
110 VTAB 12: PRINT "This program requires a IIGS": VTAB 23: PRINT "Press Return to continue ": PRINT "Or press Escape to quit ";: POKE -16368,0: GET AN$: PRINT AN$;: HOME : IF AN$ = CHR$(27) THEN TEXT : HOME : VTAB 23: END
140 VTAB 14: HTAB 1: PRINT "Your choice ?";: CALL -1008: POKE -16368,0: GET AN$: PRINT AN$;:A = VAL(AN$): IF A <1 OR A >2 THEN 140
150 IF A = 2 THEN TEXT : HOME : VTAB 23: END
160 PRINT CHR$(4);"PREFIX": INPUT PR$
170 HOME : VTAB 10: HTAB 1: PRINT "Slot: ";: GET S$: PRINT S$;: IF S$ = CHR$(27) THEN HOME : GOTO 130
180 S = VAL(S$): IF S <1 OR S >7 THEN 170
190 VTAB 12: HTAB 1: PRINT "Drive: ";: GET DR$: PRINT DR$;: IF DR$ = CHR$(27) THEN HOME : GOTO 130
200 D = VAL(DR$): IF D <1 OR D >2 THEN 190
220 PRINT CHR$(4);"PREFIX,S";S;",D";D
230 IF PEEK(SL(S)) = 0 THEN 260: REM check for Disk ][ (5.25 inch disk)
240 POKE 784,S *16 +(D -1) *128: CALL 768: PRINT : PRINT : PRINT : PRINT "SUCCESS!": FOR I = 1 TO 1000: NEXT I
250 HOME : GOTO 130
260 PRINT : PRINT : PRINT : PRINT "YOU CANNOT INSTALL SMARTBOOT ON A 5.25 INCH DISK": PRINT : PRINT "PRESS RETURN TO CONTINUE.";: POKE -16368,0: GET AN$: HOME : GOTO 130
270 IF NOT BL THEN PRINT : PRINT : PRINT "ERROR READING SLOT AND DRIVE": PRINT : PRINT "PRESS RETURN TO CONTINUE.";: POKE -16368,0: GET AN$: HOME : GOTO 130
280 TEXT : VTAB 23: PRINT "CANNOT FIND FILE 'SMARTBOOT'": END
290 DATA 32,0,191,129,15,3,144,6,32,136,190,32,9,190,96,3,80,0,32,0,0